sub pacmancls(tch as ubyte, tcl as ubyte):
  for i=0 to 1023
    poke $4000+i,tch
    poke $4400+i,tcl
    next
  end sub

